    set shell = createobject("wscript.shell")
    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    Set colItems = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")
    WinDir = Shell.ExpandEnvironmentStrings("%WinDir%")
    For Each objItem in colItems
      os=objItem.Caption
    Next
    If INSTR(ucase(os),"XP") OR INSTR(ucase(os),"2003") Then
      Set oRA = Shell.exec(WinDir & "\PCHEALTH\HELPCTR\Binaries\HelpCtr.exe -FromHCP -url hcp://CN=Microsoft%20Corporation,L=Redmond,S=Washington,C=US/Remote%20Assistance/Escalation/Unsolicited/Unsolicitedrcui.htm")
      do while(shell.AppActivate(oRA.ProcessID)=FALSE)
        wscript.sleep 2000
      loop
      wscript.sleep 1000
      shell.SendKeys "NAME"
      WScript.Sleep 500
      shell.SendKeys "{TAB}{ENTER}"
    ElseIf INSTR(ucase(os),"VISTA") Then
      cmdline = "msra.exe /offerRA NAME"
      Shell.Run cmdline
    End IF
